home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-06
/
segue.exe
/
NSPLQUE.PRG
< prev
next >
Wrap
Text File
|
1991-10-28
|
2KB
|
43 lines
*.............................................................................
*
* Program Name: NSPLQUE.PRG Copyright: HRF Associates, Inc.
* Date Created: 10/28/11 Language: Clipper
* Time Created: 23:23:57 Author: Bob Fogle
*
*.............................................................................
* Supplemental SEGUE function for selecting capture spool queue for currently selected printer.
* Functionally equivilent to N_SPLQUE function in NETLIB library.
*
FUNCTION NSPLQUE_
* Purpose: To select the capture spool queue for the currently selected printer.
* Usage : NSPLQUE_([<expC>])
* :
* Where : <expC> = Queue name.
* :
PARAMETERS quenm
LOCAL mquenm
PRIVATE rtn :=0
do while .t.
* Check to make sure passed variable types are correct.
if valtype(quenm)<>'C' .AND. quenm<>nil
rtn = -101
exit
endi
* Set up defaults
mquenm = if(valtype(quenm)=='C', uppe(alltrim(quenm)),nil)
* Get/Set que name
if pcount()=0 // If no arguments, return current setting.
mobid = PRJBDFG(24) // Get Default Print Job Flags (Print Queue ID Number)
rtn = BDOBNM(mobid) // Get Object Name.
else
mdflpt = PRLCDFG() // Get Default LPT Device.
mobid = BDOBID( 3,"mquenm") // Get Object ID. (Object type for queue = 3)
rtn = PRQECAS(mdflpt,mobid) // Set Capture Print Queue
endi
exit
endd
RETURN rtn